1300/1300
x <- c(1)
for (i in 1:1300) {
  # x[i] - pats pēdējais vektora x elements
  xx <- x[i]*(1300-i)/1300
  x <- c(x,xx)
}
min(which(x < 0.5))